home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aa.d64 / taxins (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  165 lines
  1. 1000 POKE45,PEEK(174)
  2. 1002 POKE46,PEEK(175)
  3. 1004 CLR:RESTORE
  4. 1010 PRINT"[147][144]":POKE53280,6:POKE53281,14
  5. 1020 A$="**** GLEN GODIER PRESENTS ****"
  6. 1030 A=LEN(A$):IFA/2<>INT(A/2)THENA$=" "+A$:GOTO1030
  7. 1040 FORI=1TOA/2
  8. 1050 PRINTTAB(21-I);LEFT$(A$,I);RIGHT$(A$,I)
  9. 1060 PRINT"[145]";
  10. 1070 FORZZ=1TO50:NEXTZZ
  11. 1080 NEXTI
  12. 1090 FORS=1TO3000:NEXTS:PRINT:PRINT:PRINT
  13. 1100 PRINT"":B$="T A X C A L C 85"
  14. 1110 FORI=LEN(B$)TO1STEP-1
  15. 1120 FORZZ=1TO26-LEN(B$)+I
  16. 1130 PRINTTAB(ZZ)" "MID$(B$,I,1);"[145]"
  17. 1140 NEXTZZ
  18. 1150 NEXTI
  19. 1160 FORY=1TO3000:NEXTY
  20. 1200 PRINT"[144]":C$="INSTRUCTIONS"
  21. 1210 C$="              "+C$
  22. 1220 FORI=1TOLEN(C$)
  23. 1230 PRINTMID$(C$,LEN(C$)-I+1,I);"[145]"
  24. 1240 FORZZ=1TO25:NEXTZZ:NEXTI
  25. 1250 FORT=1TO3000:NEXTT
  26. 1500 PRINT"[147]"
  27. 2000 PRINT"[147]            INSTRUCTION MENU            "
  28. 2010 PRINT"  PLEASE MAKE A SELECTION"
  29. 2020 PRINT"  A[146][144] BEGIN A NEW FILE"
  30. 2030 PRINT"  B[146][144] LOAD FILE FROM DISK"
  31. 2040 PRINT"  C[146][144] DELETE FILE FROM DISK"
  32. 2050 PRINT"  D[146][144] SAVE THE FILE"
  33. 2060 PRINT"  E[146][144] END PROGRAM"
  34. 2070 PRINT"  F[146][144] RUN TAX RETURN"
  35. 2080 PRINT"  G[146][144] CHANGE DATA IN SECTION"
  36. 2090 PRINT"  H[146][144] CHANGE COLOURS"
  37. 2095 PRINT"  I[146][144] LOAD TAXCALC85 PROGRAM"
  38. 2100 GETF$:IFF$=""THEN2100
  39. 2200 IFF$="A"THEN3000
  40. 2210 IFF$="B"THEN3200
  41. 2220 IFF$="C"THEN3400
  42. 2230 IFF$="D"THEN3600
  43. 2240 IFF$="E"THEN3800
  44. 2250 IFF$="F"THEN4000
  45. 2260 IFF$="G"THEN4200
  46. 2270 IFF$="H"THEN4400
  47. 2275 IFF$="I"THEN5000
  48. 2280 GOTO2100
  49. 3000 PRINT"[147]  BEGIN A NEW FILE":PRINT
  50. 3010 PRINT"  THIS OPTION IS USED WHENEVER YOU DO A"
  51. 3020 PRINT"TAX RETURN FOR THE FIRST TIME."
  52. 3030 PRINT"  AFTER YOU TYPE 'F1', THE TAXCALC85"
  53. 3040 PRINT"PROGRAM WILL IMMEDIATELY GO INTO THE"
  54. 3050 PRINT"DATA ENTRY MODE.  THE COMPUTER WILL ASK"
  55. 3060 PRINT"YOU SPECIFIC QUESTIONS ABOUT YOUR INCOME"
  56. 3070 PRINT"[145]AND DEDUCTIONS.  IF YOU DO NOT HAVE A"
  57. 3080 PRINT"PARTICULAR ITEM (SUCH AS RENTAL INCOME,"
  58. 3090 PRINT"FOR EXAMPLE) THEN JUST TYPE IN A '0'"
  59. 3100 PRINT"AND PRESS 'RETURN'.  THE PROGRAM WILL"
  60. 3110 PRINT"THEN GO ONTO THE NEXT QUESTION."
  61. 3120 PRINT"PRESS ANY KEY TO CONTINUE"
  62. 3130 GETA$:IFA$=""THEN3130
  63. 3140 GOTO2000
  64. 3200 PRINT"[147]  LOAD FILE FROM DISK":PRINT
  65. 3210 PRINT"  THIS OPTION ALLOWS YOU TO BRING A FILE"
  66. 3220 PRINT"[145]INTO THE COMPUTER FROM THE DISK."
  67. 3222 PRINT"THE COMPUTER WILL ASK YOU FOR THE NAME"
  68. 3224 PRINT"OF THE FILE YOU WANT LOADED. IF THERE"
  69. 3226 PRINT"ISN'T A FILE WITH THAT NAME ON THE DISK,"
  70. 3228 PRINT"[145]THE COMPUTER WILL DISPLAY A 'FILE NOT"
  71. 3230 PRINT"FOUND' ERROR MESSAGE.  AT THIS POINT,"
  72. 3232 PRINT"YOU ARE BROUGHT BACK TO THE MAIN MENU."
  73. 3234 PRINT"  ONCE THE FILE IS LOADED INTO THE"
  74. 3236 PRINT"COMPUTER, THE PROGRAM WILL AUTOMATICALLY"
  75. 3238 PRINT"[145]RECALCULATE THE TAX RETURN.  YOU NOW"
  76. 3242 PRINT"CAN EITHER MAKE CHANGES TO THE DATA"
  77. 3244 PRINT"BY GOING BACK TO THE MENU AND PRESSING"
  78. 3245 PRINT"'F7' OR YOU CAN PRINT THE RETURN BY"
  79. 3246 PRINT"BY PRESSING 'P' AND THEN 'G' TO PRINT."
  80. 3250 PRINT"PRESS ANY KEY TO CONTINUE"
  81. 3260 GETA$:IFA$=""THEN3260
  82. 3270 GOTO2000
  83. 3400 PRINT"[147]  DELETE FILE FROM DISK":PRINT
  84. 3402 PRINT"  WITH THIS OPTION, THE COMPUTER WILL"
  85. 3404 PRINT"ERASE THE FILE YOU NAME ON THE DISK."
  86. 3406 PRINT"AS WITH THE LOAD OPTION, THE COMPUTER"
  87. 3408 PRINT"WILL ASK YOU FOR THE NAME OF THE FILE"
  88. 3410 PRINT"THAT YOU WANT DELETED.  YOU MUST BE"
  89. 3412 PRINT"VERY CAREFUL WITH THIS OPTION.  ONCE"
  90. 3414 PRINT"THE 'F3' IS ENTERED, THE COMPUTER"
  91. 3416 PRINT"WILL ASK YOU IF YOU ARE SURE YOU WANT"
  92. 3418 PRINT"THE FILE DELETED.  IF YOU RESPOND"
  93. 3420 PRINT"WITH A 'Y', THE FILE ON THE"
  94. 3422 PRINT"DISK IS LOST FOREVER."
  95. 3424 PRINT"  IF YOU WANT TO REPLACE A FILE ON THE"
  96. 3426 PRINT"DISK WITH ANOTHER FILE, YOU WILL HAVE"
  97. 3428 PRINT"TO DELETE THE FILE FIRST, THEN SAVE"
  98. 3430 PRINT"THE NEW FILE WITH THE SAME NAME."
  99. 3440 PRINT"PRESS ANY KEY TO CONTINUE"
  100. 3450 GETA$:IFA$=""THEN3450
  101. 3460 GOTO2000
  102. 3600 PRINT"[147]  SAVE THE FILE ON DISK":PRINT
  103. 3602 PRINT"  THIS OPTION WILL SAVE THE CURRENT"
  104. 3604 PRINT"FILE IN THE COMPUTER ON DISK.  THE"
  105. 3606 PRINT"COMPUTER WILL ASK YOU FOR THE NAME"
  106. 3608 PRINT"OF THE FILE THAT YOU ARE SAVING."
  107. 3610 PRINT"  ALWAYS BE SURE THAT YOU DO WANT TO"
  108. 3612 PRINT"SAVE THE CURRENT FILE - THAT IT IS"
  109. 3614 PRINT"CURRENT AND UP-TO-DATE BEFORE SAVING."
  110. 3616 PRINT"PRESS ANY KEY TO CONTINUE"
  111. 3618 GETA$:IFA$=""THEN3618
  112. 3620 GOTO2000
  113. 3800 PRINT"[147]  END PROGRAM":PRINT
  114. 3802 PRINT"  THIS OPTION ENDS THE PROGRAM."
  115. 3804 PRINT"ALL DATA THAT WAS IN THE COMPUTER WILL"
  116. 3806 PRINT"BE LOST, SO BE SURE TO SAVE THE FILE"
  117. 3808 PRINT"ON DISK IF YOU WANT TO KEEP IT."
  118. 3810 PRINT"PRESS ANY KEY TO CONTINUE"
  119. 3820 GETA$:IFA$=""THEN3820
  120. 3830 GOTO2000
  121. 4000 PRINT"[147]  RUN THE TAX RETURN":PRINT
  122. 4002 PRINT"  THIS IS THE 'CALCULATION' OPTION."
  123. 4004 PRINT"THIS OPTION TELLS THE COMPUTER TO TAKE"
  124. 4006 PRINT"ALL THE INFORMATION THAT IS CURRENTLY"
  125. 4008 PRINT"IN THE COMPUTER, AND PERFORM ALL THE"
  126. 4010 PRINT"NECESSARY CALCULATIONS TO ARRIVE AT"
  127. 4012 PRINT"TAXES PAYABLE OR REFUNDS DUE."
  128. 4014 PRINT"  YOU SHOULD RUN THIS OPTION EACH TIME"
  129. 4020 PRINT"THAT YOU MAKE A CHANGE TO THE DATA"
  130. 4022 PRINT"(WITH THE 'F7' OPTION)."
  131. 4024 PRINT"  AFTER THE CALCULATIONS ARE RUN, YOU"
  132. 4026 PRINT"WILL BE ASKED IF YOU WANT A PRINT-OUT"
  133. 4030 PRINT"OR TO GO BACK TO THE MAIN MENU."
  134. 4040 PRINT"PRESS ANY KEY TO CONTINUE"
  135. 4050 GETA$:IFA$=""THEN4050
  136. 4060 GOTO2000
  137. 4200 PRINT"[147]  CHANGE DATA IN SECTION":PRINT
  138. 4202 PRINT"  THIS IS THE REAL 'POWER' OF THE"
  139. 4204 PRINT"PROGRAM.  THIS OPTION ALLOWS YOU TO"
  140. 4206 PRINT"GO BACK INTO CERTAIN SECTIONS OF THE"
  141. 4208 PRINT"RETURN AND MAKE CHANGES TO THE DATA."
  142. 4210 PRINT"  YOU HAVE TO INPUT THE ENTIRE SECTION"
  143. 4212 PRINT"THAT YOU ARE CHANGING.  WHEN YOU HAVE"
  144. 4214 PRINT"MADE THE CHANGES, YOU CAN GO BACK"
  145. 4216 PRINT"TO THE MAIN MENU AND EITHER RUN THE"
  146. 4218 PRINT"TAX RETURN ('F6'), OR SAVE THE NEW"
  147. 4220 PRINT"DATA ON DISK ('F4')."
  148. 4222 PRINT"PRESS ANY KEY TO CONTINUE"
  149. 4224 GETA$:IFA$=""THEN4224
  150. 4226 GOTO2000
  151. 4400 PRINT"[147]  CHANGE COLOURS":PRINT
  152. 4402 PRINT"  THIS OPTION ALLOWS YOU TO CHANGE"
  153. 4404 PRINT"THE BACKGROUND AND BORDER COLOURS TO"
  154. 4406 PRINT"SUIT YOUR INDIVIDUAL TASTE."
  155. 4408 PRINT"  PRESS 'C' TO CHANGE THE COLOUR"
  156. 4410 PRINT"COMBINATIONS, AND PRESS 'M' WHEN YOU"
  157. 4412 PRINT"ARE HAPPY WITH YOUR SELECTION."
  158. 4414 PRINT"PRESS ANY KEY TO CONTINUE"
  159. 4416 GETA$:IFA$=""THEN4416
  160. 4418 GOTO2000
  161. 5000 PRINT"[147]          LOADING TAXCALC85"
  162. 5010 PRINT"     PLEASE WAIT ABOUT TWO MINUTES"
  163. 5020 LOAD"0:TAXCALC85",8
  164. 5030 RUN
  165.